4.4 Disk Tape Handler 


The Disk/Tape Handler is an EPROM resident program to 
provide communication with the Technico disk or Technico 
tape. The two EPROM’S are located at address #F000 on 
the T99SS-CPU. The Disk/Tape Handler provides’ the 
following set of terminal commands: ; 


AF file length allocate file 
cD file catalog file 

CF file-l1 file-2 length copy file 

DF file delete file 

DU file-no file define unit 

EX address execute 

GD /drive gap drive 

1B inspect bound 
ID volume sequence initialize disk 
IR file-no length input record 

LS track sector input sector 

LF file,address load file(disk) 
LT file load file(tape) 
OR file-no length output record 
os track sector output sector 
PF file-no sector byte position unit 
RD reset disk 

RF file rename file 

SB bound-1,bound-2 set bounds 

SF file save file(disk) 
So date/drive set options 

ST file save file(tape) 
TD option/drive test disk 
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4.4.1 Installing the EPROM’S 


The Disk/Tape Handler is supplied in two 2708 EPROM’S. 
They are to be installed in locations U50, U51 of the 


CPU board. Be sure to locate pin one properly. Failure 
to do so will destroy the EPROM. 


4.4.2 Interconnection/Operation of Technico Tape 


The Technico Tape unit is connected to Jl and J2 of the 
basic CPU. An additional ground should be connected to 
any convenient ground. The signals, wires, pin 
locations and I/O bits are: 


Signal Wire Connector CRU Bit 
/Request to Send Yellow J1i-4 3-OUT 
/Clear to Send Red J2-4 3-IN 
Data Out (to CPU) Orange J2-3 2-IN 
Data In (From CPU) Green J1-3 2-OUT 
Ground Black 

Unused Blue-White 


Notice that /Request to Send and /Clear to Send are 
negative logic signais- That is, when /Request to Send 
is low (zero state) a request is made to the tape drive 
to send data‘. When high, no request is made and the 
tape unit is turned off. When the tape unit is off, the 
manual controls (play,rewind) are disabled. To enable 
these controls, the following monitor command will 
create a /Request to Send. 


2M3 0 


When recording data, it is recommended that the unit 
remain in PLAY/RECORD and that CRU bit 3 be used to stop 
the unit. Refer to the command description for Save 
Tape (ST) for further details. 


4.4.3 Executing DTH 


If the DTH EPROM’S are installed, the monitor will 
automatically transfer control to DTH after it has 
determined the terminal baud rate. To return to the 
monitor, enter the DTH command “MON’. If the monitor is 
entered from DTH, control is returned to DTH by the 
monitor “R*” command. Before sending any commands to the 
disk, you must send a RD (reset) command to the disk. 
It is good practice to follow this with a SO (set 
options). 
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Whenever Disk/Tape Handler is entered, it will respond 
with a prompt character of greater than. You can now 
enter any Disk/Tape Handler command. Each of the 
commands is described in detail later. During entry of 
Disk/Tape commands, you can edit input as follows: 


-BREAK. If you press BREAK the current line is 
discarded and a new line requested. 


-RUBOUT or DEL. Each time a RUBOUT is received, the 
Disk/ Tape Handler will backspace one character. The 
character being deleted will be typed in response to 
RUBOUT. 
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4.4.4 DTH Commands 


Many DTH commands require a file name for one parameter. 
A file name identifies a particular file or group of 
files. If only one file is specified by the name, it is 
unique. Certain commands (e-g- AF) require unique file 
names. If more than one file satisfies the name, it is 
ambiguous. Many commands allow ambiguous file names 
(e.g. CF). In that case all files which satisfy the 
file name criteria are utilized. 


File names consist of four parts: 
oO Name - a sequence of up to eight characters 


o Version(Optional) - a sequence of up to three 
characters seperated from the name by Oe 


o Type(Optional) - a single character seperated 


¢ ¢ 


from the version (or name if no version) by a oF 


fe) Drive (Optional) - a drive number (0 to 3) 
separated from the rest of the file name by ‘/’ If 
omitted, the default drive is used. Refer to the 
Set Options (SO) command for further information 
regarding the default drive. 


The general file name format is: 


NNNNNNNN.VVV:T/D 


The following are valid file names: 


MON 
MONITOR.SRC 
EDITOR.REL: 1 
GEORGE: 1/2 


All of the above file names are unique since only one 
file could satisfy the name criteria. The special 
characters °?° and °*” may be used to create ambiguous 
mames. The character °?”% is a “wild card’ it will match 
any character- For example, the file name: 


TECH? ??.WH? 
will match all of the following file names: 
TECHNIC.WHO 


TECHX. WHX 
TECHNI.WH 
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Note that °?% also matches a missing character. That 
is, "X??" matches "XY". The character °*” is used to 
denote that all remaining positions in the file name are 
OE The following examples show the correspondence 
between °?% and %*’: 


TEC.* = TEC .2?2?27:? 

TE* = DET Pee tet UT 2 
*.REL - 222722272 .REL:? 
* = ys at Gat id Er as a Ga EE 


All of the DTH commands are described in the following 
subparagraphs. 
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ALLOCATE FILE - Allocate an empty disk file of the 
specified length. 


Format: 


Procedure: 


Note: 


Example: 


AF file length 
1. Type "AF" 


2. Type the file name to be allocated 
followed by a space. If the diskette 
already contains a file with this name, an 
error message will be given. 


3. Type the length in decimal number of 
sectors followed by a carriage return. The 
minimum allocation is one sector and the 
maximum is the number of sectors not 
currently allocated. Each sector contains 
128 bytes of data. 


Ds The Editor/Assembler/Linking Loader 
(EAL) will automatically allocate files as 
100 sectors-e- The AF command can be used to 
allocate longer files for use by EAL. 
The following command will allocate 130 


sectors for file NEW-.SRC on disk drive two: 


AF NEW.SRC/2 
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CATALOG DISKETTE - Provides a catalog of the active 
files on the specified diskette. 


Format: CD file 
Procedure: le Type “ep" 


2. Type the file name followed by a 
carriage return. The Disk/Tape Handler 
will now list the following information for 
the specified file(s): 


o Name 


o Start of allocation (decimal 
track/sector) 


o Length of data (decimal sectors). This 
is the amount of the file currently in use. 


o Date of creation-written on the disk only 
if the Set Options command was entered 
prior to file allocation. 


o Date of last update-writen on the disk 
only if the Set Options command was entered 
prior to file update. 


Note: 1. To obtain a catalog of all files on a 
given drive, use the file name */drive. 


Example: The first command below will list all files 
on drive zero. The second will list only 
files with -SRC as part of the name. 


cp */0 
CD *.SRC 
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COPY FILE - Copy one file to another file. 


Format: CF file-l file-2 length 
Procedure: I. Bype “Cr” 


2. Type the file(s) to be used as an input 
file. 


3. Type the file(s) to be used as output. 
This file may have the same name or a 
different name than the input file. 


4. Type the allocation of the output file 
(in decimal sectors) followed by carriage 
return. 


Note: 1. The length parameter is optional and 
may be deleted. If deleted, file-2 is 
allocated the same length as file-l. 


Example: 1. Copy all files from the default drive 
to drive 2. 


CF * */2 

The names and allocation are unchanged. 
2. Copy file XYZ on the default drive to 
file ABC on the same drive, but change the 
allocation of ABC to 311 sectors. 

CF XYZ ABC 311 

3. Copy all file beginning with "XY" on 
the default drive to drive zero. Change 


the first two characters of the name of the 
E¢iTe trom “RY! Go, “AB! > 


CF XY* AB*/0O 
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DEFINE UNIT- Associate a file number with a particular 


file. 
Format: 


Procedure: 


Note: 


Example: 


DU file-no file 
1. Type "DU" 


2. Type the number (1 to 5) to be used as 
the file-number. . 


3. Type the name of the file. 


le If the file name is omitted, the file 
associated with the file-no is closed. 


2. If both the file-no and the file name 
are omitted, all files are closed. 


Open file XYZ.Y as file number 3. 


DU 3 XYZ.¥ 
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EXECUTE-Transfer control to a user program. 


Format: EX Address 


Procedure: 1. Type "EX" 


2. Type the destination address. 
transfer control to that address. 


Note: 1. The destination address can be omitted. 
In this case the first bound 
bounds command) is used as a destination. 


Example: Load file ABC at location 300 then execute 


that program. 


LF ABC, 300 
EX 


ox 3 


SB,300 
LF ABC 
EX 
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GAP DISKETTE-compress the diskette to eliminate gaps 
between files. 


Format: 


Procedure: 


Note: 


Example: 


GD/drive 
1. Type "GD" 


2. Type the drive (e-.g-/2) followed by 
carriage return. 


1. To gap the disk, the controller copies 
files from the end toward the beginning. 
If during any copy a hard error occurs, the 
file is lost. Therefore, it is highly 
recommended that a backup disk is made 
prior to any gap operation. A backup is 
made using the CF command. 


2. The drive may be eliminated from the 
command. In this case, the default drive 


is utilized. 


If drive zero is the default, either of the 
following will gap drive zero: 


GD/0 
GD 
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INSPECT BOUNDS-Examine the bounds. 


Format: 


Procedure: 


IB 


le. Type "IB" 


2. The DTH will now type the memory 
bounds. Refer to set bounds command for a 
description of the bounds. 
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INITIALIZE DISK-Erase all files from the diskette, and 
format or initialize the diskette. 


Format: 


Procedure: 


Note: 


Example: 


ID volume sequence 
le Tepe "Tp" 


2. Type the volume identifier.- A volume 
identifier is a file name used to label the 
disk. If /drive is part of the name 
(e-g-BACK.3/2) then that drive will be 
initialized. 


3. Type the interleave sequence followed 
by a carriage return. Although the 
sequence can be from 1 to 13, a sequence of 
4 will provide best performance with the 
TI9900. 


4. The Disk/Tape Handler will now type 
"OK"? Check the command for errors. If you 
have not made an error type "Y", else type 
a W * 


1. Initialize will delete all files 
currently stored on the diskette. 


2. All new disks must be initialized 
before using them to store data. 


The following sequence will initialize the 
disk on drive zero and label it EXAM: 


ID EXAM/0O 4 
OK?7Y 
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INPUT RECORD-Input a record from a file currently open. 


Format: 


Procedure: 


Example: 


IR file-no length 

Le Type "IR 

2. Type the file-no of the file to be 
read. The file-no must be opened with a 
"DU" command. 

3. For a binary record, type the length. 
For a variable length record, (like those 
for EAL) omit the length. 

Read a record on file 3 into 1000. 


SB 1000 
IR 3 
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INPUT SECTOR-Read a single sector of the diskette 


Format: 


Procedure: 


Note: 


Example: 


IS track sector 
ie Seppe "7s 


2. Type the track (0 to 76) and sector (1 
to 26) of the desired sector. 


1. The data will be stored in 128 bytes of 
memory starting at bound-l1 (see set bounds 
command) 


Read track 7 section 6 into locations 1000 
to 1O7F 


SB 1000 107F 
Is 7 6 
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LOAD FILE-Load a disk file into memory. 


Format: 


Procedure: 


Note: 


Example: 


LF file, address 
1. Type "LF" 


2. Type the file name to be _ loaded 
followed by the target adress. The file 
name must be unique and must be seperated 
from the address by ",". DTH will now load 
the file at the specified address 


1. The address of the memory to be used 
can be established via the Set Bounds (SB) 
command prior to loading a file. In this 
case the address is unnecessary. 


Load the Editor/Assembler/Linking Loader 
into RAM at address 300(hex). 


SB 300 
LF EAL 


ors 


LFEAL, 300 
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LOAD TAPE-Load a tape file or record into memory. 


Format: 


Procedure: 


Note: 


Example: 


LT file 
1. Type "LT" 


26 Type the file name to be_ loaded 
followed by a carriage return. 


3. Start the tape unit by depressing PLAY. 
The Disk/Tape Handler will skip to the 
desired file and load it. 


4. When the Disk/Tape Handler prompt is 
issued, examine the bounds (via IB). EE 
the second bound = FFFF, an error occurred 
during load. 


l. Spaces in the file name are significant 
for tape files. Thus, the command "LTXYZ" 
and "LT XYZ" will not refer to the same 
file! 


2. The file name may be deleted. In this 
case, the Disk/Tape Handler will load the 
next record on tape, regardless of 
identifier. This can be used to recover 
the name record of a file ._ you have 
forgotton. 


Load the Editor/Assembler/Linking Loader 
into RAM at 300 (hex). 


SB 300 
LT EAL 


Load the first record on tape (assume it 


has just been rewound. If that were the 
EAL tape, then the name “EAL" would be in 


memory at 300- That is, 300=20 45 41 4c. 
Using an ASCII conversion table, you could 
recover the file name. 


SB 300 
LT 
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OUTPUT RECORD-Output a record to a file currently open. 


Format: 


Procedure 


Example: 


OR file-no length 
ls Type “Or” 


2. Type the file-no of the file to be 
written. The file-no must be opened with a 
"DU" command. 


3. For a binary record (no record 
seperators), type the length. For a 
variable length ASCII record, omit the 
length. 


Write locations 1000 to 104F on file 2 as a 
binary record. 


SB 1000 104F 
OR 2 
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OUTPUT SECTOR-Write a single sector on the diskette. 


Format: 


Procedure: 


Note: 


Example: 


OS track sector 
le. Type "os" 


2e Type the track and sector of the 
desired sector. 


Le The bounds (see the set bound command) 
must define a 128 byte block of memory to 
be written on the diskette. 


Write locations 1000 to 107F on track 7 
sector 6 of both drives zero and two. 


SB 1000, 107F 


OS 7 6 
OS 7 6/2 
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POSITION FILE-Position any open file. 


Format: 


Procedure: 


Note: 


Example: 


PF file-no sector byte 
l» type “Pr” 


2. Type the file-no to be positioned. The 
file-no must be defined by a previous "DU" 
command. 


3 Enter the sector and byte position 
required. 


l. If the sector and byte are omitted, the 
DIH will print the current position of the 
file. 


26 If the byte is omitted, byte zero is 
assumed. 


Position file-number three at the logical 
end. 


PF 3; 9999 
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RESET DISK-Reset the disk controller. 


Format: RD 


Procedure: 


Note: 


1. Type "RD" followed by a carriage 
returits 


2. The controller will be reset. 
1. Issue an RD command after initial power 


One 


2. RD will remove all options set by the 
Set Options (SO), and will close all open 
files. 
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RENAME FILE- Change the file name of one or more files. 


Format: 


Procedure: 


Note: 


Example: 


RF file-1l file-2 
ls Type "REF 


2. Type the file(s) to be renamed followed 
by space. 


3. Type the new name of the file(s) 
followed by carriage return. 


1. The wild card characters "7?" or "*" may 
be used as part of the file name (see 


example). 


Change all files of the form XXXXXXXX.SRC 
to XXXXXXXX.BAK. 


RF *.SRC *.BAK 


change the file EAL to EAL.ABS:1. 


RF EAL EAL.ABS. 1 
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SET BOUNDS-Change the memory bounds for load/store 


purposes. 
Format: 


Procedure: 


Note: 


Example: 


SB bound-1l,bound-2 

le Type “SB" 

2. Type the memory bounds in hexadecimal. 
1. A Set Bounds command must be issued 


prior to a “SFY or “ST”. ‘This will define 
the area of memory to be saved. 


26 A Set Bound command must be issued 
prior to a “LEF" or “LT“.s In this case only 
the first bound is used. It is the 


starting address for the load. After the 
load, the bounds will be updated. A disk 
loak sets the bounds to the first and last 
adress read. A tape load sets the first 
bound to the last address +l and the second 
will be set to the number of bytes just 
read or FFFF Le an error occurred. 


3. Bound-2 may be ommitted and _ the 
previous bound-2 will remain in effect. 


Set the bounds so that a program from disk 
or tape will be loaded at 1234 (hex). 


SB 1234 
Set bounds so that the area of memory from 


1000 to 2163 (hex) can be stored on tape or 
disk. 


SB 1000, 2163 
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SAVE FILE-Store an area of memory on disk. 


Format: SF file 


Procedure: 


Note: 


Example: 


is Type "sF* 


2. Type the file name to be assigned to 
the stored data. The file name must be 
unique and not already allocated. 


3. The Disk/Tape Handler will allocate a 
file of the correct length and will store 
the desired information. 


1. The address of the memory to be saved 
must be established via the Set Bounds (SB) 
command prior to storing a file. 


Save the Mighty Monitor memory on a file 
called MM.ABS. Data will be saved on drive 


two. 


SB FCOO,FFF 
SF MM.ABS/2 
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SET OPTIONS-Establish the current date, and the default 
diskette drive. 


Format: 


Procedure: 


Notes: 


EXample: 


SO date /drive 

1. Type "so" 

2. Type the date as a six character 
sequence. Any format can be used as long 


as it is six characters. 


3. Type the default drive followed by a 
carriage return. 


1. The option setting is reset whenever 
the disk controller is reset (see RD 


command). 


2. The default drive can be omitted and 
zero is assumed. 


Set the date to 1/3/78 and the default 
drive to zero. 


SO 010378/0 


or 


$0 010378 
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SAVE TAPE-Write a tape file from memory 


Format: 


Procedure: 


Note: 


Example: 


ST file 
1. Type "ST" 


2. Type the name of the file to be 
assigned to the data- DO NOT type carriage 
return. 


3. Start the tape unit by depressing 
PLAY/RECORD if not already set this way- 


4. Type carriage return. After the data is 
written, stop the tape. 


1. If you wish to record more than one 
file per tape, do not stop the tape after 
recording by pressing the stop switch on 
the tape. Instead, return to the monitor 
(via MON) and set bit 3 high (M3 1). The 
Disk/Tape Handler will restart the tape 
when another file is saved. If the tape is 
stopped manually by STOP, a glitch is 
recorded and causes read errors. 


2. When writing the first record or file, 
be certein that you are past clear leader. 
This is done by setting bit 3 = low (M3 0) 
with the monitor, then pressing PLA/RECORD. 
When the leader is recorded, stop tape 
with the monitor (see Note l). 


The following sequence of commands will 
save two files. File one is memory 1000 to 
2000 and File two is 3100 to 3200. Monitor 


commands are those preceded by a "?". User 
entries underlined. 


?7M3 0 Allow rewind. At this point, insert 
cassette, rewind it, press RECORD/PLAY. 


?7M3 1 Stop tape (after passing clear 
leader) 


?GF000 Go to Disk/Tape Handler 
1000,2000 Set up file-1 


ST FILE] Save file-l(space between ST FILE1 
is significant) 
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MON Back to monitor when file output 
complete. 


?7M3 1 Stop tape 


?R Back to Disk/Tape Handler 


SB 3100,3200 Set up file-2 


ST FILE2 Save file~2 When file output is 
complete, either stop tape using monitor 
(more files to come) or rewind and unload 
tape. 
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TEST DISK-Test Disk Drive. 


Format: 


Procedure: 


Note: 


Example: 


TD Option 
1 = Type Wppn 
2. Type the option followed by a carriage 


returne The controller will test the disk 
according to the option as follows: 


OPTION TEST 

Vv Random seek/verify 

R Random seek/read 

AL Incremental seek/read 


3. To stop the test, reset the CPU, enter 
the Disk/Tape Handler and issue a Reset 
Disk (RD) Command. 


1. If you have problems with a particular 
disk, try reinitializing it. 


Test drive two using a random seek/read 
sequence. 


TD R/2 
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4.4.5 ERRORS 


The Disk/Tape Handler will issue the following errors. 
If the error is encountered during execution of a 
terminal command, the message is printed. If the error 
is encountered during execution of a program request, 
the error is returned to the caller. 


0007. Command is incorrect or a parameter 
improperly formed. ; 


0006. An attempt to create a new file which 
duplicates a current file. 


0005. The specified file was not found. 
0004. The diskette is out of space. To regain 


space a gap command may help. 


0003. The drive is not ready. This means it 
probably does not contain a diskette. 


0002. An attempt was made to access a file via 
unit designator when no file is open. This 
may be caused by improper file definitions 
to the Editor, Assembler, Linker Loader. 
It is usually not encountered when using 
the utility commands of the Disk/Tape 


Handler. 

OOOl1. The current read or write cannot be 
completed because a hard error was 
encountered. This indicates a diskette 


problem-perhaps contamination by handling. 
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4.4.6 Program Listing 

A complete listing of the EPROM resident software is 
included in this secticn. The following entry points 
are used by other system software (e-ge BASIC) and can 
be accessed by the user. 


4.4.6.1 Disk Interface 


A command is transferred to the disk by a call of the 
form: 


LI RO,command address 
LI R1,bound-1 

L1 R2,bound-2 

BLWP @#F804 

DATA Error Address 


If the error address is zero, all errors will be 
considered fatal and will cause DTH to return control to 
the monitor. If the error address is non-zero, control 
is transferred there in case of a disk error. RO will 
contain the error number. 


RO must point to the command text. The command letter 
is determined by the following table: 


COMMAND LETTER USED 


AF 
CD 
CF 
DF 
DU 
GD 
ID 
IR 
Is 
LF 
OR 


HMNAxXMNORMPHYAAQHVAOP 


Any command not listed above cannot be sent to the disk. 
As an example, the following sequence will allocate a 
file XYZ as 100 sectors.- Errors will be fatal. (Rl, R2, 
not loaded since they are not use). 
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LI RO, TXT 


BLWP @#F 804 
DATA 0 

TXT TEXT "A Sxz Toe" 
BYTE >0D 


4.4.6.2 Tape Interface 


Two entry points are provided to control the tape unit. 
These are: 


TTIN (BL @#F808) Read Technico Tapee R1l=memory 
to be loaded R15=file name 
pointer or zero R2=noe of 


characters(set by handler) 
TTOUT (BL @#F80C) Write Technico Tape Rl=memory 
to save R2=no. of bytes. 
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AGE-1 FLOPPY DISK/TECHNICO TAPE HANDLER 10/1/78 


0000 
0000 


0026 
FC4C 
0030 
0004 
0O0BO 
0080 
O0OD2 
FFFC 
FFFB 
FFFA 
FFFD 
FFFB 
0004 
0001 
0005 
0006 
0015 
0000 
0004 
0006 
0008 
000C 


0007 
0010 
0012 
0021 
0022 
0023 


0010 
0012 
0016 
OOLA 
001C 
OOLE 
0022 
0026 
0028 
002A 
002C 
0030 
0032 
0036 
0038 
~ 003¢ 


003E 


0460 
00BO 
0010 
0460 
0460 


CODD 
cO6D 
COAD 
C2BE 
071D 
020C 
0209 
1EFC 
1EFB 
lEFA 
9813 
1316 
9813 
1313 
9813 
161E 


0209 


023E 


03B8 
O37E 


0002 
0004 


0030 


00c4 


01D5 


O1CF 


O4B2 


0058 


DTH 


BREAK 
MONADR 
CRUBAS 
TAPBAS 
REG 
MONWS 
IBUFF 
SELECT 
STATUS 
WRITE 
NRESOT 
NRESIN 
EOT 
SOH 
ENQ 
ACK 
NAK 
BRNCH 
DISK 


TTIN 


TTOUT 
* 


TITL 
IDT 
DREG 
DEF 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


B 


“FLOPPY DISK/TECHNICO TAPE HANDLER 10/1/78’ 


DISK, TTIN, TTOUT 


>26 
>FC4C 
>30 


we we we we we we we we we we 


we we we ve we ve 


MONITOR BREAK AREA 
RE-ENTRY TO MONITOR 
BASE=20, BUT R12 AT 8TH BIT 
TAPE UNIT BASE 

DISK HANDLER REGISTERS 
DISK MONITOR REGISTERS 
COMM. BUFFER(32 CHAR) 
OFFSETS FROM CRU BASE 

FOR THE FIVE CONTROL 

BITS. cece 


END OF TEXT 
START OF HEADING 
ENQUIRY 

ACKNOWLEDGE 

NEGATIVE ACKNOWLEDGE 
MONITOR ENTRY 


SOFTWARE COMMUNICATION 


* EQUIVALENCES FOR ERROR MESSAGES ° 


* 

CMDERR 
INFORM 
BADRES 
SOHACK 
ENQDAT 
ENQACK 
* 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


>07 
>10 
+12 
>21 
>22 
>2.5 


we we we we we we 


* ENTRY POINT FOR DISK CONTROL 
* 


DISKl 


* 


MOV 
MOV 
MOV 
MOV 
SETO 
LI 


* RESET THE 


* 


LI 


*R13,R3 
@2*R1(R13),R1 
@2*R2(R13),R2 
*R144+,R10 
*R13 

R12, CRUBAS 
R9, ERROR] 
SELECT 

STATUS 

WRITE 

*R3, @CHD 

CONF 

*R3,@CHK 

CONF 

*R3,@X 

SEND 


DISK DRIVE 


R9,RESET3 


we we we we we we we we ee we we we we Ye Oe we 


we 


COMMAND ERROR 
INFORMATIONAL TEXT 

BAD RESPONSE TO OUR CMD 
SOH, DATA, BUT NO ACK, EOT 
ENQ, EOT, «.--, DATA 

EXO, EOT, as*%, NOT ACK, EOT 


GET USER’S RO INTO R3 
GET USER’S R1 INTO Rl 
GET USER’S R2 INTO R2 
GET ERROR EXIT, ADJ. R14 
USER RO = -1l = NO ERROR 
INITIALIZE CRU BASE 

SET FOR ERRORS 

SELECT = 0 

STATUS = 0 

WRITE = 0 

DELETE COMMAND? 

YES 

KILL COMMAND? 

YES 

X IS A RESET COMMAND 
NOT RESET 


SET FOR BAD RB LT 
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0042 


0046 
0048 


OO4A 
004C 
OO4E 
0050 
0052 
0056 
0058 
005C 


O05E 
0062 
0064 
0066 
0068 
006A 
006C 
O06E 
0072 
0074 
0078 


OO7A 
007¢C 
O07E 
0080 
0084 
0086 
0088 
008A 
008C 
0090 
0092 
0094 
0096 
0098 
009C 
OOAO 


O0A2 
00A6 
OOAA 
OOAC 
OOBO 
OO0B2 
O0B6 


0204 


1EFD 
0604 


16FE 
1DFD 
1FFB 
16FE 
0203 
1011 
0209 
10F2 


02 0B 
2C 9B 
05 8B 
DO1B 
16FC 
2€ 40 
0980 
0280 
13:25 
0280 
16F2 


1DFB 
IDFC 
3600 
0240 
1308 
1EFB 
3600 
1EFC 
0200 
0600 
16FE 
10F2 
D033 
06A0 
0280 
16FA 


0640 
06A0 
1816 
06A0 
2c 80 
06A0 
17FC 


F000 


01C4 


00c4 


01CC 


OO4E 


0059 


c000 


0014 


01A0 
OD 00 


0196 
0180 


0176 


0180 


RESET LI R4, >F000 INIT. RESET COUNTER 


SBZ NRESOT 
RESET1 DEC R4 


JNE RESETI1 
SBO NRESOT 
RESET2 TB NRESIN 


we 


JNE RESET2 ; WAIT FOR RESET COMPLETE 
LI R3,CLSFIL 3; CLOSE ALL FILES 
JMP SEND 


RESET3 LI R9, ERROR1I TRY ONE MORE RESET 


JMP RESET 


we 


CONFIRM A KILL OR DELETE COMMAND WITH 
THE OPERATOR. HE MUST ANSWER ’Y’% OR ‘N’ 


* te + 


* 
CONF LI R11,CMSS ; SEND CONFIRM REQ. 
CONF1O OUT *RI11 

INC Rll 

MOVB *R11,R0 

JNE CONF10 


IN RO 

SRL RO,8 

CI RO,°N’ 3; NO? 

JEQ SEND50 ; THEN EXIT IMMEDIATELY 
Cr Re, *Y* ‘ tr nor “y*, Exit 


JNE CONF 


SEND A COMMAND TO THE CONTROLLER 

IF THE CONTROLLER HAS INFORMATION AVAILABLE 
AT THIS TIME, FLUSH IT OUT SINCE IT IS 

JUNK OR AN EOT FROM LAST COMMAND. 


Nee ee He F 


END SBO STATUS 
SBO SELECT 
STCR RO, 8 
ANDI RO, >C000 
JEQ SENDIO 
SBZ STATUS 


READ STATUS 

IS THERE DATA? 
NO 

YES=-READ IT 


we we we wes 


STOR RO, 8 
SBZ SELECT 
LI RO0,20 ; WASTE TIME FOR CONTROLLER 


SEND5 DEC RO 
JNE SENDS 
JMP SEND 

SEND1LO MOVB *R3+,R0 ; GET COMMAND BYTE 
BL @DOUT DISK OUTPUT 
CI RO, >O0D00 CARRIAGE RETURN? 
JNE SEND10O NO-CONTINUE 


we we ve 


* 
* CARRIAGE RETURN FOUND 
* 

BL @DOUTC 

BL @DINP 


SEND AN EOT CHAR. 

DISK INPUT ROUTINE 

JMP IF A DISK CONTROL 
SEND CARRIAGE RETURN 

SEND DATA TO THE TERMINAL 
GET MORE FROM DISK 

NOT “DCC’ SO CONTINUE 


SEND30 OUT RO 
BL @DINP 
JNC SEND30 


fo 
te 
@ 
Q 
ee) 
iy 
Fe} 
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O0OB8 0206 0010 
OOBC C746 


OOBE 


00c0 
00C2 
o00c4 
00C 8 
OOCA 
OOCE 
00DO0 
00D4 
00D 6 


~ 00D8 
OODC 
OOEO 
O0E2 
OOE6 
OO0E8 
OOEC 
QOEE 
OOF 2 
OOF4 
OOF6 


OOF 8 
OOFA 
OOFC 
0100 
0104 


0108 
O10A 
010C 
O10E 
0112 
0116 


0380 


04C0 
0459 
06A0 
2C 80 
06A0 
17FC 
0280 
1341 
10F9 


0206 
0280 
1336 
0280 
1310 
0280 
131B 
0280 
132E 
C38A 
16E2 


C146 
1304 
06A0 
06A0 
0460 


04C6 
C38A 
13D9 
06A0 
0206 
0204 


0176 
0180 


0400 


0012 
0600 


1500 
0100 


0500 


0176 
0218 
023E 


0180 
0007 
O1D4 


EEE 


R6, INFORM 


SEND40 MOV R6,¥*R13 
SEND50 RTWP 


* 


INFORMATIONAL TEXT 
USER RO = ERROR CODE 


* ROUTINE: ERRDAT (AND ERRDCC) 
* READ 3 TYPES OF CHARACTERS FROM THE DISK AND SEND THEM 
* TO TERM. DATA CHARACTERS CONSIST OF THE PRINTABLE 
* ASCII CHAR. AND THE ASCII CONTROL CHARACTERS (SUCH AS 
* CARR. RET. (CR) AND END-OF-TEXT (EOT)). DISK CONTROL 
* CHARS. (DCC) CONSIST OF ASCII CONTROL CHARS. THAT 
* WERE FLAGGED BY CONT. (VIA A NINTH I/O BIT) AS 
* HAVING SPECIAL SIGNIFICANCE IN THE COMPUTER/CONTROLLER 
* COMMUNICATION PROTOCOL. DATA CHARACTERS ARE SENT TO THE 
* TERM. AS IS, BUT DCC CHARACTERS ARE IGNORED. 
* 
ERRDCC CLR RO ; CLERK A “DEO 
ERRDAT B RO ; PROCESS ERROR 
ERRORI BL @CRLF 
ERROR2 OUT RO 
ERROR3 BL @DINP 3; GET ANOTHER DISK CHAR. 
JNC ERROR2 ; IMP IF NOT A ‘DCC’ 
CI RO,EOT*256 ; DID WE GET AN EOT YET? 
JEQ ERRMSG 3; YES, TYPE AND ABORT. 
JMP ERROR3 
* 
* ROUTINE: DISK CONTROL 
* ANALYZE A ‘DCC’ SEND IN RESPONSE TO COMMAND 
* Ee 
DCTRL LI  R6,BADRES ; BAD CONTROLLER RESPONSE 
CI RO,ACK*256 
JEQ DRD60 
CL RO,NAK*256 
JEQ NAK10 
CI RO,SOH*256 ; START OF HEADING 
JEQ DREAD ; DISK READ 
CI RO, ENQ*256 ; ENQUIRE? 
JEQ DWRITE ; DISK WRITE 
TESTEX MOV R10,R14 ; IS AN ERROR EXIT PROVIDED? 
JNE SEND4O ; YES=TAKE IT. 


+ ee 


ERRMSG MOV 


ERRM10 
* 


B 


* ROUTINE: 


* A NEGATIVE ACKNOWLEDGE HAS 


* 
NAK10 


R6,R5 
ERRM10 
@CRLF 
@TYPEWD 
@GO 


NAK 


R6 
R10,R14 
ERRDCC 
@DINP 

R6, CMDERR 
R4, TABLE 


we we 


weowe 


ve we we 


THE CALLER HAS NOT PROVIDED ERROR EXIT, SO 
TYPE OUT R6 IN HEX AS THE ERROR CODE, RET. TO MONITOR 


SHOW ERROR NUMBER AS 4 HEX DI' 
NO ERROR CODE 


MONITOR ROUTINE 
EXIT TO DISK MONITOR 


BEEN RECEIVED. ANALYZE IT. 


IN CASE ERROR 
ERROR EXIT PROVIDED? 
NO, SO SHOW THE NAK, ETC. 


COMMAND ERROR 
ADDRESS OF TABLE OF FIRST LET 
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O11A 


011¢C 
O1LLE 


0120 
0122 


0124 
0126 
0128 
012A 
012C 
012E 
0130 
0132 
0134 
0136 
0138 
013A 


O13E 
0140 
0144 
0148 
~ 014C 
O14E 


0150 
0154 
0156 
O15A 
015C 
O15E 
0160 
0162 
0166 
O16A 
0168 
0170 
0174 


0176 
O17A 


O17E 


9D00 
13CF 
0606 
16FC 
10Cc¢ 


1DFB 
1DFC 
1DFB 
1F06 
1303 
1F0O7 
1304 
10FB 
1EFB 
3631 
10F7 
06A0 


0601 
CB41 
0206 
0280 
16B9 
0380 


06A0 
DOlI 
0 6A0 
0581 
1302 
8081 
12F9 
06A0 
0206 
06A0 
17A9 
0206 
10E9 


2CA0 
2CA0 


0458 


018E 


0004 
0021 
0600 


0180 


01A0 


0196 
0022 
0180 


0023 


O1CC 
01cD 


NAK20 CB RO, *R4+ 


ee e 


JEQ SEND40O 
DEC R6 

JNE WNAK20 
JMP SEND4O 


ROUTINE: DISK READ 
SOH RECEIVED, SO READ FROM 


DREAD SBO STATUS 


SBO SELECT 


DRD1O SBO STATUS 
DRD20 TB 6 


JEQ DRD30 
TB 7 
JEQ DRD4O 


JMP DRD20 


DRD30 SBZ STATUS 


STCR *R1+, 8 
JMP DRD1O 


DRD40 BL @DINP20 


10/1/78 


; LOOK FOR A MATCH 


; BAD NAK 


DISK. 


SELECT STATUS 


we 


; STATUS 
; DATA AVAIL? 


3; CONTROL AVAIL? 


3; WAIT 

3; DATA 

; SAVE DATA 

3; CONTINUE 

3; GET CONTROL CHAR 


* DISK READ IS OVER WITH BECAUSE “DCC” ENCOUNTERED 


DEC Rl 
MOV R1,@4(R13) 
LI R6,SOHACK 


DRD50 CI RO, ACK*256 


JNE ERRDCC 


DRD60 RTWP 


*& 
* 
* 
* 


ROUTINE: DISK WRITE 


3; USER R2 
3; IF SOH, DATA, BUT NO ACK 


; NOT ACK, SO IGNORE EXIT 


ENQ RECEIVED, SO WRITE TO THE DISK. 


DWRITE BL @DINP 
DWT10 MOVB *R1,RO 


BL @DOUT 


INC RI 
JEQ DWT20 
Cc Rl, R2 


JLE DWT10 


DWT20 BL @DOUTC 


QF * * F 


* 
* 
* 


LI R6,ENQDAT 
BL @DINP 
JNC ERRDAT 
LI R6,ENQACK 
JMP DRD50 


ROUTINE: CRLF 
SEND A CARRIAGE RETURN AND 
TO THE TERMINAL. 


RLF OUT @CR 


OUT @LF 
B *R1I1 


ROUTINE: DINP 
THIS ROUTINE INPUTS A BYTE 


FLUSH EOT 

GET THE DATA FOR DISK 
SEND IT TO THE DISK 

MOVE THE BYTE POINTER 

R1 WENT TO 0000277? 

CHECK IT AGAINST THE LIMIT 


we we we we ve we 


IN CASE ENQ, BUT NO EOT 

DISK IN 

NO ‘DCC’, SO IGNORE EXIT 
IN CASE ENQ, DATA, EOT, 

BUT NO ACK 


we we we we we 


LINE FEED 


; SEND A CARRIAGE RETURN 
; SEND A LINE FEED 


FROM THE CONTROLLER 
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0180 
0182 
0184 
0186 
018A 
018¢ 
018E 
0190 
0192 
0194 


0196 
019A 
O19E 
01A0 
O1A4 
01A6 
01A8 
O1AA 
O1AE 
01B0 
O1B4 
~ O1B6 
01B8 
O1BA 
O1BC 
O1BE 
01cC0 
01C2 


01c4 
01¢C5 
01C7 
O1CB 
O1CC 
01CD 
O1cCc 
O1CF 
O1CE 
O1D1 
O1D2 
01D3 


_O1D4 
01D5 
01D6 
01D7 
01D8 


1DFB 
1DFC 
3600 
0240 c000 
13FC 
OA10 
1EFB 
3600 
1EFC 
O45B 


0207 C000 
0400 


3F 3F 


ODOA 


4F4B 3F 
00 


3E 
2C 


* AND SETS CARRY = 1 IF A CONTROL BYTE 
* 
DINP SBO STATUS ; FIRST TEST STATUS 
SBO SELECT 
DINP10 STCR RO,8 ; READ STATUS 
ANDI RO, >C000 ; IS DISK SENDING TO US? 
JEQ DINP10 ; NO, READ STATUS AGAIN 
SLA RO,1 3 YES, SAVE H. 0. IN CARRY 
DINP20 SBZ STATUS 3; PREPARE TO READ DATA 
STCR RO,8 ; READ CHAR. OR CONTROL CHAR. 
SBZ SELECT 
B *R11 
* 
* ROUTINE: DOUT, DOUTC 
* SEND A BYTE TO THE CONTROLLER 
* ABORT IF CONTROLLER TRIES TO SEND 
* 
DOUTC LI R7,>C000 3; R7=NOOP (MOV RO,RO) 
LI RO, EOT*256 3; SEND EOT 
JMP DOUT10 
DOUT MOV @DINP20,R7 3; R7=SBZ STATUS 
DOUT1LO SBO STATUS ; SELECT STATUS 
SBO SELECT 
DOUT20 STCR R4,8 ; GET STATUS 
ANDI R4,>C300 ; READY? 
JEQ DOUT30 ; YES 
ANDI R4,>C000 ; IS CONTROLLER SENDING? 
JEQ DOUT20 ; NO-WAIT 
JMP ERRDAT ; YES-ERROR 
DOUT30 X R7 3; SBZ STATUS IF REQUIRED 
LDCR RO,8 3; SEND 
SBO WRITE 
SBZ STATUS 
SBZ WRITE 
B *R11 


* 


* CONTROL DATA 


* 


CLSFIL BYTE 
EMSS BYTE 
TEXT 
BYTE 
CR EQU 
LF EQU 
CMSS BYTE 
CHK EQU 
TEXT 
BYTE 
GT BYTE 
COMMA BYTE 


* TABLE OF CHAR. 


* 


TABLE BYTE 
CHD BYTE 
BYTE 
BYTE 
BYTE 


sala 
>0D,>0A 
ale a 

0 

$ 

$+1 
>0D,>0A 
$+1 
“OR?” 


¢ ¢ 


Cc 
any * 
os 
0 
R 


eo cd 


a * 


we we 


? 


we ve we we we 


CLOSE FILE 
MUST FOLLOW CLSFIL 


ERROR MESSAGE 


DISK MON. PROMPT 


FOR NAK MESSAGES 


COMMAND ERROR 
DUPLICATE FILE ERROR 
NOT FOUND ERROR 

OUT OF SPACE ERROR 
READY ERROR 


WruUuamn 
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01D9 
O1DA 


O1DC 
OLDE 
01E0 
O1LE2 
O1E4 
O1E8 
O1EA 
O1EE 
O1FO 
O1F4 
O1F6 
O1FA 
O1FE 
0200 
0204 
0206 
020A 
020C 
020E 
0210 
0212 
0214 
0216 


0218 
021C 
O21E 
0220 
0224 
0228 
022C 
022E 
0232 
0234 
0236 
023A 
023C 


0235 


5:5 
48 


0404 
04C5 
D1B3 
0986 
0286 
1315 
0226 
1110 
0286 
1108 
0226 
02 86 
1108 
0286 
1505 
0205 
OA44 
A106 
10E8 
C145 
13E6 
A2c5 
045B 


0200 
c105 
OB04 
0244 
0224 
0284 
1102 
0224 
06C4 
2084 
0220 
18F0 
O45B 


02E0 


000D 


FFDO 


OO0A 


FFF9 
OOOA 


O0OOF 


0002 


000c 


OOOF - 


0030 
003A 
0007 


FFFC 


0080 


BYTE 


BYTE 
* 


as 1 Fs 
ai * Sa 


we we we 


2 UNIT NUMBER ERROR 
1 HARD DISK ERROR 
0 BAD CONTROLLER REPLY 


KRERKREKRKEKEKEKRKKKEKKEKKEKKEERKEEKKRKKEKEKEKE 


* DISK MONI 


TOR 


x 


BRREKKEKEKKKREKKKKKRKEKERKEKKKEEKKKERKEEER 


* 


* ROUTINE: 
* GET A HEX 
* 
GETB CLR 
CLR 
GETB10 MOVB 
SRL 
Cr 
JEQ 
AI 
JLT 
Cr 
IL? 
AI 
ee 
JLT 
or 
IGT 
GETB20 LI 
SLA 
A 
IMP 
GETB30 MOV 
JEQ 
GETB40 A 
B 


ROUTINE: 


MONITOR R 


* Fee 


* 

TYPEWD LI 

TYP10 MOV 
SRC 


T¥P20 SWPB 


DISK MONI 


ALSO HAND 


eee FF 


GO LWPI 


GETB 
VALUE FROM BUFFER 


RG 

R5 
*R3+,R6 
R6,8 
R6, >0D 
GETB40 
R6,->30 
GETB30 
R6,10 
GETB20 
R6,-7 
R6,10 
GETB30 
R6,15 
GETB 30 
R5,2 
R4,4 
R6,R4 
GETB10 
R5gRS 
GETB10 
R5,R11 
*R1I1 


TYPEWD 


OUTINE NOT USED TO 


RO, £2 
R5,R4 
R4,R0 
R4,>F 
R4,>30 
R4,>3A 
TY P20 
R4,7 
R4 

R4 

RO, -4 
TYP 10 
*R11 


we 


we 


we 


° 
> 


GET NEXT CHAR 


RETURN? 
YES-EXIT 


NOT HEX 


0-9 


NOT HEX 


NOT HEX 


DISPLAY R5 AS HEX DIGIT STRING 


AVOID INCORRECT BREAK HANDLING 


GET 4 BITS 


CHANGE TO ASCII 


CONTINUE PER SHIFT COUNT 


EXIT 


TOR. ACCEPT COMMANDS FROM THE 


LES TAPE UNIT 


MONWS 


. 
> 


TERMINAL AND SEND THEM TO DISK 


SET WORKSPACE 
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0242 
0246 
0248 
024C 
O24E 
0252 
0256 
025A 
025E 


0260 
0262 
0264 
0268 
026C 
026E 
0270 
0274 


0276 
027A 
027C 
0280 
 O2:3:2 
0284 
0286 
0288 


028A 
028C 
028E 
0292 


0294 
0298 
029A 
029C 
O2A0 
O02A2 
02A4 
02A6 
02A8 
— QO2AA 
O2AE 
02B2 
O2B4 
02B8 


C820 
0004 
C820 
0006 
0200 
c 800 
0 6A0 
2CA0 
04C6 


04c0 
2040 
D980 
0280 
130E 
0586 
0280 
16F5 


0203 
04C7 
C027 
1309 
8013 
132A 
05C7 
10F9 


0606 
11D8 
2CA6 
10E6 


0207 
8DD3 
1615 
8DE3 
1613 
C077 
OB11 
OA11 
1708 
0200 
0202 
C402 
0420 
0000 


0000 
0002 
023E 
0002 


0176 
O1D2 


OOD 2 
7F 00 


op00 


00D 2 


046C 


00D 2 


O4CA 


0002 


00DO 
4€20 


0004 


* 
* 
* 
* 


GO10 


* 


MOV @BRNCH,@4 
MOV @2,@6 

LI R0,GO 

MOV RO,@2 

BL @CRLF 

OUT @GT 

CLR R6 


10/1/78 


we 


we 


. 
> 


. 
> 


SET LOC 4 TO RETURN 


SET BREAK HANDLER 


PROMPT FOR COMMAND 


BUFFER LINE IN 


BUFFER ONE LINE FROM TERMINAL 


BREAK WILL ERASE TH 
CLR RO 
IN RO 
MOVB RO, @IBUFF 
CI RO,>7FO0O0 
JEQ G030 
INC R6 
CI RO,>0DO00 
JNE GO010 


E LINE 
3 


(R6) 3 


* END OF THE INPUT LNE 


* 


GO20 


* 


LI R3,IBUFF 
GuR RBI 

MOV @CMD(R7), 
JEQ GO40 

¢c *R3,R0 
JEQ GO110 
INCT R7 

IMP G020 


* HANDLE BACK SPACE 


* 


GO 30 DEC R6 
JLT GO 
OUT @IBUFF(R6 
JMP GO10 
* 
* CHECK FOR A SYSTEM 
* IF ROM BASED, JUMP 
* IF RAM BASED, LOAD 
* 
GO40 LI R7, PRGTB 
GO50 Cc *R3,*R7+ 
JNE GO0O70 
Cc @2(R3),*R 
JNE GO0O80 
MOV ¥*R7+,R1 
SRC R1,1l 
SLA RIl,l 
JNC G060 
s H RO, IBUFF- 
it a9. *y. * 
MOV R2,*RO 
BLWP @DISK 
DATA 0 


we 


RO 


we 


we 


we we we 


) 


GET CHAR. 


SAVE IT 
RUBOUT? 


RETURN? 


FIND IN TABLE 


END OF TABLE 


FOUND 


BACKS PACE 
TOO FAR 
ECHO CHAR. 


FILE REFERENCE 


TO C2 
It, 


> 


7+ 


2 


we we we we we 


THEN JUMP TO IT 


LOOK UP NAME 


FOUND, GET ADDRESS 
PUT THE LSB 
INTO THE CARRY 


IF EVEN, EXECUTE 
IF ODD, LOAD FIRST 
LOAD 
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O2BA 
O2BC 
02C0 
02C4 
02C6 
02C8 
O2CA 
02CC 
O2CE 
02D2 
02D4 
02D6 
02D8 


O2DA 
O2DE 
O2E0 
O2E2 
O2E4 
O2E8 


O2EA 
O2EE 
02F0 


O2F2 
O2F4 


02F6 
O2FA 
O2FC 
0300 
0304 
0306 
030A 


030C 
0310 
0312 
0314 
0318 
— O31A 
031¢ 


co0sl 
0201 
06A0 
0452 
05C7 
05C7 
c017 
16E5 
0207 
D037 
13B4 
2c 80 
10FC 


C127 
c004 
0910 
1707 
0200 
D404 


0420 
0000 
10A6 


05¢C3 
0454 


06A0 
C141 
06A0 
2CA0 
C142 
06A0 
1099 


06A0 
10DE 
C044 
06A0 
1092 
C084 
1090 


0026 
0176 


01c5 


049C 


00D 3 


0004 


0176 


0218 
O1D3 


0218 


01DC 


O1DC 


we we we 


> 


GO60 MOV RI1,R2 
LI R1,BREAK 
BL @CRLF 
B *R2 
GO70 INCT R7 
GO80 INCT R7 
MOV *R7,RO 
JNE GO050 
GO90 LI R7,EMSS 
GO100 MOVB *R7+,R0 
JEQ GO 
OUT RO 
IMP GO100 
* 
* FOUND THE 
* EXECUTE IT. 
* 
GO110 MOV @CMDS(R7),R4 ; 
MOV R4,RO 
SRL RO,1 
INC 60130 
GO120 LI RO0,IBUFF+1 
MOVB R4,*RO 
* 
* SEND COMMAND TO DISK 


BLWP @DISK 
DATA 0O 
JMP GO 

* 


* NOT DISK COMMAND 
* 


GO130 INCT R3 
B *R4 

* 

* COMMAND: 

* 

BOUND BL  @CRLF 
MOV RI1,R5 
BL @TYPEWD 
OUT @COMMA 
MOV R2,R5 
BL @TYPEWD 

SET10 JMP GO 

* 

* COMMAND: SB X [,Y] 


* SET MEMORY BOUNDS 
* 


SETBD BL @GETB 
JMP GO90 
MOV R4,R1 
BL @GETB 
JMP GO 
MOV R4,R2 
JMP GO 

* 

* COMMAND: LF <FILE> 


* 


> 


. 
> 


> 


. 
> 


EXECUTE 

SET R1 FOR MONITOR 
NEW LINE FIRST 

NOT FOUND, TRY AGAIN 
END? 


YES-ISSUE ERROR 


COMMAND LETTER IN THE TABLE, 


DISK COMMAND? 


NO 


FIX COMMAND 


DISPLAY MEMORY BOUNDS (TAPE OR DISK) 


NEW LINE 
DISPLAY BOUNDS 


MUST HAVE ONE 


SECOND IS OPTIONAL 


[,<ADDRESS>] 
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O31E 0204 4C20 CMDLF LI RA, "Ts * 


0322 9813 01D3 CMDLF1 CB *R3,@COMMA ; COMMA? 

0326 1304 JEQ CMDLF2 

0328 9833 O1CC CB ¥*R3+,@CR 

032C 16FA JNE CMDLF1 

032E 10DA JMP 60120 ; JUST DO LOAD 
0330 DCEO O1CC CMDLF2 MOVB @CR,*R3+ 

0334 06A0 O1DC BL @GETB SET BOUNDS 


we we 


0338 1001 JMP CMDLF3 NO ADDRESS 
033A C044 MOV R4,Rl 

033C 0204 4620 CMDLF3 LI R4,’L ” ; RESET R4 
0340 10D1 JMP GO120 


* 


* COMMAND: EX [<ADDRESS>] 
* 


0342 O06A0 O1DC CMDEX BL @GETB 


0346 0451 B *R1 ; NO ADDRESS 
0348 0454 B RA ; ADDRESS-USE IT 
* 
* COMMAND: TS [<FILE NAME>] 
* TAPE SAVE 
* SAVE R1 TO R2 ON TAPE 
* FILE ID IS IN IBUFF 
* 
034A C201 TSV MOV R1,R8 3; SAVE R1,R2 
034C C242 MOV R2,R9 
034E 0201 00D4 LI R1, IBUFF+2 ; SAVE FILE NAME 
0352 0226 FFFD AI R6,-3 ; 
0356 1303 JEQ TSV10 ; NO NAME 
0358 C086 MOV R6,R2 
035A 06A0 037E BL @SAVE 3; WRITE FILE NAME 
035E C048 TSV10 MOV R8,R1 
0360 C089 MOV R9,R2 
0362 6081 s R1,R2 
0364 0582 INC R2 
0366 06A0 037E BL @SAVE ; WRITE DATA 
036A 1O0CF JMP SET10 
* 
* COMMAND: TL [<FILE NAME>] 
* TAPE LOAD - READ DATA INTO #Rl 
* NAME OF THE REQUIRED FILE IS IN IBUFF 
* 
036C 020F 00D4 TLD LI R15, IBUFF+2 ; POINT TO FILE NAME 
0370 0226 FFFD Al R6,-3 
0374 1601 JNE TLD10 
0376 O4CF CLR R15 3; NO NAME 
0378 06A0 03B8 TLD1O BL  @LOAD ; LOAD THE FILE 
037C 10C6 JMP SET10 


* TAPE HANDLING ROUTINES 


* 


ROUTINE: SAVE 

WRITE THE CARACTERS IN MEMORY AT *RI1 TO TAPE 
R2=NO. OF CHARACTERS 

FORMAT: 

7F 7F 7F 7F 7F 55 LEN(WORD) DATA 


eee HH He OF 


O37E C28B SAVE MOV R11,R10 3; SAVE EXIT 


AGE-10 


0380 
0384 
0386 
0388 
038C 
0390 
0392 
0394 
0398 
039A 
039C 
039E 
O03A2 
O3A4 
03A6 
0348 
O3AA 
O3AC 
O3AE 
03B0 
03B2 
03B4 
03B6 


03B8 
O3BA 
O3BE 
03c0 
03C4 
03C6 
03cC8 
O3CA 
03CC 
03D0 
03D2 
O03D4 
03D6 
03D8 
O3DA 
O3DC 
O3DE 
O3E0 
03E2 
O3E4 
03E6 
O3EA 
O3EC 
O3F0 
O3F 2 
O3F4 
O3F 6 
O3F8 
O3FA 
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020C 0002 
1E00 
1EO1 
0203 
020F 
1FO1 
13FE 
0204 
069F 
0603 
16FB 
0204 
069F 
Cc 102 
069F 
C102 
06C4 
069F 
D131 
069F 
0602 
16FC 
O45A 


0005 
0454 


7FFF 


3955 


C28B 
020C 
1E01 
0208 
1F01 
13FE 
1F00 
13FE 
0209 
1F00 
16FE 
1F00 
13FE 
1FO00 
16FE 
0589 
1F00 
13FD 
0939 
0698 
0284 
1305 
0284 
13F9 
0702 
O45A 
0698 
D084 
06C2 


0004 


O42A 


FFF4 


5500 


7F00 


SAV5 


SAV10 


SAV20 


ee Fe 


* 


LOAD 
LD5 


LD10 


LD 20 


LD30 


LD35 


LD36 


LD40 


LD50 


LD60 


ROUTINE: 
READ RECORD INTO *R1 OR CHECK FILE NAME 
RETURN THE NUMBER OF CHARACTERS IN R2 

IF R15=0 THEN READ ELSE COMPARE -FILE TO *R15 


MOV 
LI 


R12, 2 

0 

1 

R3,5 
R15, TWRITE 
1 

SAV5 
R4,>7FFF 
*R15 

R3 

SAV1O 
R4,>5555 
*R15 
R2,R4 
*R15 
R2,R4 

R4 

*R15 
ER1+,R4 
*R15 

R2 

SAV20 
*R10 


LOAD 


R11,R10 
R12,TAPBAS 
1 

R8, READ 
1 

LD10 

0 

LD20 
R9,-12 

0 

LD30 

0 

LD35 

0 

LD 36 

R9 

0 

LD40 
RO..3 

*R8 
R4,>5500 
LD60 
R4,>7F00 
LD50 

R2 

*R1O 

*RB8 
R4,R2 

R2 


we we we we ve 


we 


DATA NORMALLY LOW 
RTS=LOW 

R3=NO OF 7F°’S 
RI5=INDEX TO WRITE 
WAIT FOR CTS=LOW 


R4=CODE 


‘ 


WRITE LENGTH 


sWRITE USER BYTE 


we we we ve 


we we we 


we we we 


CONTINUE TILL END 


EXIT 


SET CRU BASE 

RTS=LOW 

INDEX TO READ 

WAIT FOR CTS=LOW 

WAIT FOR DATA=LOW 
R9=TIMER*8 LESS 76CYCLES 
WAIT FOR DATA=HIGH 


SKIP ONE TRANSITION 
TO AVOID GLITCH 


TIME 8 BITS 


R9=R9/8 

READ AND SKIP >7F 
5572 

>7F? 

ERROR 


GET BYTE LENGTH 
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O3FC 0698 BL *R8 
O3FE D084 MOVB R4,R2 
0400 06c2 SWPB R2 
0402 coc2 MOV R2,R3 

* 

* READ OR COMPARE FILE NAME 

* R2=R3=RECORD LENGTH 

k 
0404 04C7 CLR R7 3; R7=LOCATE FLAG 
0406 C20F MOV R15,R8 ; R8=INDEX OR FLAG 
0408 06A0 042A LD80 BL  @READ 3; GET BYTE 
040C C208 MOV R8,R8 ; STORE? 
040E 1309 JEQ LD100 ; YES 
0410 9E04 CB R4,*R8+ 3 NO-COMPARE 
0412 1301 JEQ LD90 
0414 0707 SETO R7 ; SET NOT FOUND 
0416 0603 LD90 DEC R3 ; CONTINUE TO END 
0418 16F7 JNE LD80 
O41A C1C7 MOV R7,R7 ; IF R7=0, READ DATA 
041C 16CE JNE LD5 3; ELSE SKIP FILE 
O41E O4CF CLR R15 
0420 10cc JMP LDS 
0422 DC44 LD100 MOVB R4,*R1+ 3; SAVE DATA 
0424 0603 DEC R3 3; CONTINUE TO END 
0426 16F0 JNE LD80 
0428 045A B *R10 ; EXIT 

* 

* ROUTINE: READ 

* READ ONE BYTE INTO R4 

* RO9=BAUD TIMER 

* 
042A 0404 READ CLR R4 
042C 0206 0009 LI R6,9 ; R6=BIT COUNT 
0430 1F00 RD5 ‘se oO 3; WALT TILL LOW 
0432 13FE JEQ RDS 
0434 1F00 RD1O TB O 3; WAIT FOR START 
0436 16FE JNE RD1O 
0438 C149 MOV R9,RS5 3; WALT 1/2 BIT 
043A 1F00 R20 060 THC 
043C 0645 DECT R5 
043E 15FD JGT RD20 
0440 C149 RD30 MOV R9,RS5 3 (14) WAIT 1 BIT 
0442 0914 SRL R4,1 ; (14) REPOSITION 
0444 1F00 RD40 ~=s' TB 0 
0446 0605 DEC R5 
0448 16FD JNE RD4O 
O44A 3444 STCR R4,1 3 (42) SAMPLE 
044C 0606 DEC R6 ; (10) 
O44E 16F8 JNE RD30 3; (10) CONTINUE FOR 8 
0450 06C4 SWPB R4 ; DATA IN LEFT 
0452 0458 B *R11 ; EXIT 

* 

* ROUTINE: TWRITE 

= * WRITE THE BYTE IN R4 TO TAPE 
* 


R5=BIT COUNT 
START BIT 
WAIT 


0454 0205 O000B TWRITE LI R5,;11 
0458 1D00 SBO 0 
045A 0206 OOLF WRT20 LI R6,31 


we we we 
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O45E 
0460 


0462: 


0464 
0466 
0468 
046A 


046C 
O46E 
0470 
0472 
0474 
0476 
0478 
O47A 
O47C 
O47E 
0480 
0482 
0484 
0486 
0488 
048A 
048C 
048E 
0490 
0492 
0494 
0496 
0498 
049A 
049C 
O49E 
04A0 
O4A2 
O4A4 
04A6 
04A8 
O4AA 
O4AC 
O4AE 
0480 
04B2 
O4B4 
O4B6 
0438 
O4BA 
O4BC 
O4BE 
04c0 
0402 
0404 
04C 6 
04C8 
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0606 
16FE 
3044 
0914 
0605 
16F8 
O45B 


WRT30 


* 


* COMMAND TRANSLATION TABLE 


*! 
CMD 


CMDS 


DEC 
JNE 
LDCR 
SRL 
DEC 
JNE 
B 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
DATA 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
DATA 
DATA 
DATA 
DATA 
DATA 


R6 
WRT30 
R4,1 
R4,1 
R5 
WRT20 
*R1I1 


AT © 
ee Td 
"DE’ 
Ponty © 
le Ut 
is ? 
"30" 
“Rr ¢ 
“ep”? 
OO T F 
i bi 
“Rp * 
“TR? 
ere 
“OR” 
“os ’ 
i 22) ae 
“DT” 
"SE 
sD tas 
“ope 
OTR? 
“EX” 
0 
TAY ool 


. 
HHWODtHAMHN 
. . 
w w 2 w ww J w @ 


Be eee ee 


% + & S&S &® 9S 
= SF NS 


. 


. 
. 
i 


we 


we 


we we we we we we We Ve Ve we we we we ve 


we we we we we we we we we we 


DLY=20*R6+10 CYCLES 
SEND BIT 
CONTINUE FOR ALL BITS 


EXIT 


ALLOCATE FILE 
COPY FILE 

DELETE FILE 

GAP DISK 
INITIALIZE(KILL) DISK 
LOAD FILE 

SET OPTIONS (MODE) 
RENAME(NAME) FILE 
CATALOG DISK 

SAVE FILE 

TEST DISK 

RESET CONTROLLER (X) 
INPUT RECORD 
INPUT SECTOR 
OUTPUT RECORD 
OUTPUT SECTOR 
POSITION FILE 
DEFINE UNIT 

SET BOUNDS 

LOAD TAPE FILE 
SAVE TAPE FILE 
INSPECT BOUNDS 
EXECUTE 

END OF TABLE 
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O4CA 4D4F 
04CD OD 
O4CE FC4C 
04D0 4949 
04D3 OD 
04D4 F800 
O4D6 4241 
04D9 OD 
O4DA O101 
O04DC 4541 
O4DF OD 
O4E0 0301 
O4E2 464F 
O4E5 OD 
O4E6 0101 
O4E8 5245 
O4EB OD 
O4EC 0004 
O4EE 


0006 
01D5 
0342 
049C 
O1cc 
0184 
O1A4 
012A 
0124 
01¢5 
00C 2 
00C8 
0210 
O2DA 
0294 
O2CE 
0422 
03DC 
0416 
0015 
O4CA 

VOC 
~~ 03 
0008 
0444 
0048 
0390 


ACK 
CHD 
CMDEX 
CMDS 
CR 
DINP10 
DOUT10 
DRD20 
DREAD 
EMSS 
ERRDAT 
ERROR 2 
GETB30 
GO110 
GO 40 
GO90 
LD1i00 
LD 40 
LD90 
NAK 
PRGTB 
R12 

R3 

R8 
RD4O0 
RESET1 
SAV5 


4E 


41 


53 


4C 


a2 


54 


0012 
O1CF 
O31E 
O1CcC 
0176 
018E 
01A8 
0134 
*0000 
0005 
00co 
OOCA 
0214 
O2E4 
0298 
01D2 
03C8 
O3BA 
01CcD 
0108 
0000 
000D 
0004 
0009 
0430 
OO4E 
O37E 


* 
* 
* 4 BYTES 
* 2 BYTES - 
* 
* 
* 
*k 
PRGTB TEXT 
BYTE 
DATA 
TEXT 
BYTE 
DATA 
TEXT 
BYTE 
DATA 
TEXT 
BYTE 
DATA 
TEXT 
BYTE 
DATA 
TEXT 
BYTE 
DATA 
END 
BADRES 02F6 
CHK 0104 
CMDLF 0322 
cMSS 01D3 
CRLF 0030 
DINP20 0004 
DOUT20 0188 
DRD30 013A 
DTH 0150 
ENQ 0023 
ERRDCC 0104 
ERROR3 O1DC 
GETB40 0235 
GO120 02F2 
GO50 O2BA 
GT 00D 2 
LD20 03D0 
LD5 03E4 
LF 03B8 
NAK1O O11A 
RO 0001 
R13 O000E 
R4 0005 
R9 0434 
RD5 042A 
RESET2 0058 
SAVE FFFC 


ADDRESS 


IF ADDRESS IS ODD, 
IF ADDRESS IS EVEN, MONITOR JUST BRANCHES 


“MON” 
>OD 
MONADR 
sis es 7 
>0D 

>F 800 
“BAS” 
>0OD 
>100+1 
“EAL’ 
>OD 
>300+1 
“FOR’ 
>OD 
>101 
“RET” 
>OD 
>0004 


BOUND 
CLSFIL 
CMDLF1 
COMMA 
CRUBAS 
DISK 
DOUT 30 
DRD4O 
DWRITE 
ENQACK 
ERRM1O 
GETB 


TABLE OF SYSTEM ROUTINES 
EACH ENTRY IS OF THE FORM: 
- NAME OF ROUTINE 


FILE IS LOADED 


0026 
046C 
0330 
OO5E 
00D 8 
0010 
0196 
0148 
0154 
0022 
OOFS8 
O1EO 
0260 
027C 
02C6 
0010 
03D4 
O3F 6 
FC4C 
FFFB 
OOOA 
O0O0F 
0006 
O43A 
OOBO 
0394 
OO7A 


3; MONITOR 


3; 1S AT MONADR 
3 


ITA 


; IS AT >F800 
3; BASIC 


IS LOADED AT >100 


3 
>; EAL 


3; IS LOADED AT >300 
3; FORTRAN 


; IS LOADED AT >100 
; RETURN 


3; TO CALLING ROUTINE 


BREAK 
CMD 
CMDLF 2 
CONF 
DCTRL 
DISKl 
DOUTC 
DRD50 
DWT10 
ENQDAT 
ERRMSG 
GETB10 
GO10 
GO 20 
Go70 
INFORM 
LD35 
LD60 
MONADR 
NRESIN 
R10 
R15 

R6 

RD 20 
REG 
SAVL1O 
SEND 


0000 
0007 
033¢ 
0062 
0180 
O1A0 
0128 
O14E 
0162 
0004 
00Cc4 
0206 
02D2 
028A 
02C8 
03C4 
03D8 
0408 
0080 
FFFD 
000B 
0002 
0007 
0440 
0042 
O3AE 
0096 


BRNCH 
CMDERR 
CMDLE 3 
CONF10 
DINP 
DOUT 
DRD1O 
DRD60 
DWT20 
EOT 
ERRORI1 
GETB20 
GO100 
GO 30 
GO 80 
LD1O 
LD36 
LD 80 
MONWS 
NRESOT 
R11 

R2 

R7 

RD 30 
RESET 
SAV20 
SEND1O 
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O00BO0 SEND30 
930C SETBD 


OOBC 
0001 


i04 TAPBAS *O00F4 


035E TSV10 * 
0232 TYP20 


tDIT/ASM/LOAD? 


0008 
0218 


SEND40 
SOH 
TESTEX 
TTIN 
TYPEWD 


0090 
0021 
036C 
*000C 
FFFA 


SEND5 
SOHACK 
TLD 
TTOUT 
WRITE 


OOBE 
FFFB 
0378 
0454 
O45A 


SEND50 
STATUS 
TLD1O 
TWRITE 
WRT20 


030A 
01D4 
034A 
021¢C 
045E 


SET10 
TABLE 
TSV 

TYP10 
WRT30 


